home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_ghostscript.idb / usr / freeware / lib / ghostscript / 3.33 / ps2epsi.ps.z / ps2epsi.ps
Encoding:
Text File  |  1998-05-21  |  5.3 KB  |  184 lines
  1. %    Copyright (C) 1990, 1991, 1993, 1994 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility to
  7. % anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU Ghostscript General Public License for full details.
  10. % 
  11.  
  12. % Convert an arbitrary PostScript file to an EPSI file.
  13. %
  14. %    NOTE: this file was contributed by a user: please contact
  15. %    George Cameron <george@bio-medical-physics.aberdeen.ac.uk>
  16. %    if you have questions.
  17. %
  18.  
  19. % Initialize, and redefine copypage and showpage.
  20. /ps2edict 25 dict def
  21. ps2edict begin
  22.  
  23.                 % The main procedure
  24.   /ps2epsi
  25.    {                % Open the file
  26.      outfile (w) file /epsifile exch def
  27.                     % Get the device parameters
  28.      currentdevice getdeviceprops .dicttomark
  29.      /HWSize get aload pop
  30.        /devheight exch def
  31.        /devwidth exch def
  32.      matrix defaultmatrix
  33.        /devmatrix exch def
  34.                 % Make a corresponding memory device
  35.      devmatrix devwidth devheight <ff 00>
  36.      makeimagedevice
  37.      /arraydevice exch def
  38.      arraydevice setdevice    % (does an erasepage)
  39.      /rowwidth devwidth 7 add 8 idiv def
  40.      /row rowwidth string def
  41.                 % Replace the definition of showpage
  42.      userdict /showpage { ps2edict begin epsipage end } bind put
  43.    } def
  44.  
  45.  /margintest
  46.  {
  47.       { dup arraydevice exch row copyscanlines pop
  48.     -1 0 1 rowwidth 1 sub
  49.     { dup row exch get 0 ne { exit }{ pop } ifelse
  50.     } for
  51.     dup -1 ne { exch pop } if
  52.     -1 ne { exit } if pop
  53.       } for
  54.  } bind def
  55.  
  56.   /epsipage
  57.    {
  58.      /loopcount devheight 1 sub def
  59.  
  60.      % Find top margin
  61.      -1 0 1 loopcount margintest
  62.      dup -1 eq { (blank page!!\n) print 0 .quit }{ exch pop } ifelse 
  63.      /tm exch def
  64.  
  65.      % Find bottom margin
  66.      loopcount -1 0 margintest
  67.      /bm exch def
  68.      
  69.      % Initialise limit variables
  70.      /loopcount rowwidth 1 sub def
  71.      /lm loopcount def /lmb 0 def
  72.      /rm 0 def /rmb 0 def
  73.  
  74.      % Find left and right boundaries of image
  75.      tm 1 bm
  76.       { % Get more data
  77.     arraydevice exch row copyscanlines pop
  78.     % Scan from left to find first non-zero element
  79.     % We save first the element, then the index
  80.     -1 0 1 loopcount
  81.     { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  82.     } for
  83.     % If we found -1, row is blank ..
  84.     dup -1 ne 
  85.     { % Find the leftmost index
  86.           dup lm lt
  87.           % If the new index is less, we save index and element
  88.           { /lm exch def /lmb exch def }
  89.           % If the index is equal, we or the bits together
  90.           { lm eq { lmb or /lmb exch def }{ pop } ifelse
  91.           } ifelse
  92.       % Now find the rightmost index
  93.       loopcount -1 0
  94.           { dup row exch get dup 0 ne { exch exit }{ pop pop } ifelse
  95.           } for
  96.       dup rm gt
  97.           % If the new index is greater, we save index and element
  98.           { /rm exch def /rmb exch def }
  99.           % If the index is equal, or the bits
  100.           { rm eq { rmb or /rmb exch def } { pop } ifelse
  101.           } ifelse
  102.     } if
  103.     pop
  104.       } for
  105.  
  106.      % Now we find the real left & right bit positions
  107.      256 0 1 7
  108.      { exch 2 div dup lmb le { pop exit }{ exch pop } ifelse
  109.      } for
  110.      /lmb exch def
  111.  
  112.      1 7 -1 0
  113.      { exch dup dup rmb and eq { pop exit }{ 2 mul exch pop } ifelse
  114.      } for
  115.      /rmb exch def
  116.  
  117.      % Calculate the bounding box values
  118.      /llx lm 8 mul lmb add def
  119.      /lly devheight bm sub def
  120.      /urx rm 8 mul rmb add def
  121.      /ury devheight tm sub def
  122.  
  123.      % Write out the magic string and bounding box information
  124.      epsifile (%!PS-Adobe-2.0 EPSF-1.2\n) writestring
  125.      epsifile (%%BoundingBox: ) writestring
  126.      epsifile llx write==only epsifile ( ) writestring
  127.      epsifile lly write==only epsifile ( ) writestring
  128.      epsifile urx write==only epsifile ( ) writestring
  129.      epsifile ury write==
  130.      epsifile (%%BeginPreview: ) writestring
  131.      epsifile urx llx sub 1 add write==only epsifile ( ) writestring
  132.      epsifile bm tm sub 1 add write==only epsifile ( 1 ) writestring
  133.      epsifile bm tm sub 1 add write==
  134.  
  135.      % Define character and bit widths for the output line buffer
  136.      /cwidth rm lm sub 1 add 8 mul 7 add 8 idiv def
  137.      /bwidth cwidth 8 mul def
  138.      /owidth urx llx sub 1 add 7 add 8 idiv def
  139.      /out cwidth string def
  140.  
  141.      % Create a 1-bit-high device for bitblt to align with the bbox
  142.      gsave
  143.      matrix cwidth 8 mul 1 <00 ff> makeimagedevice setdevice
  144.  
  145.      % 'image' a zero string to clear the line device
  146.      bwidth 1 1 matrix cwidth string image
  147.  
  148.      tm 1 bm
  149.       { % Get a scan line interval from the array device
  150.     arraydevice exch row copyscanlines lm cwidth getinterval
  151.     lmb 0 gt
  152.     { % 'image' it into the line device with the lmb offset
  153.       bwidth 1 1 [1 0 0 1 lmb 0] 5 -1 roll image
  154.       % Now we get the modified scan line
  155.       currentdevice 0 out copyscanlines 0 owidth getinterval
  156.     } if
  157.     % Write out the hex data
  158.     epsifile (% ) writestring 
  159.     epsifile exch writehexstring
  160.     epsifile (\n) writestring
  161.       } for
  162.  
  163.      epsifile (%%EndImage\n) writestring
  164.      epsifile (%%EndPreview\n) writestring
  165.      epsifile flushfile
  166.      grestore
  167.      erasepage initgraphics
  168.  
  169.      DonePage 0 1 put
  170.    } bind def
  171.  
  172.  
  173. (outfile) getenv
  174.   { /outfile exch def 
  175.     ps2epsi
  176.  
  177.     /DonePage 1 string def
  178.     (%stdin) (r) file cvx execute0
  179.     DonePage 0 get 0 eq { showpage } if
  180.   } if
  181.  
  182. end
  183. quit
  184.